perm filename DIF[AI,LCS] blob
sn#759485 filedate 1984-06-26 generic text, type T, neo UTF8
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
**** File 1) LOOP.FAI[AI,LCS]/1P/9L
1) EXTERNAL SC,SCX,RRJJ,STF,ALF,POSI,RMOD,RINP,SIZ,HOMX,LIMIT,IDEV,NSET
1) ;; EXTERNAL SC,SCX,RRJJ,STF,ALF,POSI,RMOD,RINP,SIZ,HOMX,LIMIT,IDEV,DDCLR,NSET
1) EXTERNAL RHORZ,SETCUR,DPYSET,DPYBRT,SETPOG,ALINE,DPTR,ALOG,JCHAR,DPYX
**** File 2) LOOP.FAI[NEW,LCS]/1P/9L
2) EXTERNAL SC,SCX,RRJJ,STF,ALF,POSI,RMOD,RINP,SIZ,HOMX,LIMIT,IDEV,DDCLR
2) EXTERNAL RHORZ,SETCUR,DPYSET,DPYBRT,SETPOG,ALINE,DPTR,ALOG,JCHAR,DPYX
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/72L
1) SKIPN DL ;IF(X22.NE.0)RETURN (DPYOUT DONE WITH CURSOR)
1) SKIPLE MEDIT+1 ;MOVE 2,DPY+=4001 ;IF(IGO.GT.0)RETURN
1) JRA 16,(16) ; CALL DPYOUT(1)
1) JSA 16,DPYDO ; END
**** File 2) LOOP.FAI[NEW,LCS]/1P/71L
2) MOVE 2,MEDIT+1 ;DPY+=4001 ; IF(IGO.GT.0)RETURN
2) JUMPG 2,DB ; CALL DPYOUT(1)
2) ;; JSA 16,DPYOUT ; END
2) JSA 16,DPYDO ; END
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/115L
1) SOS LIMIT+1 ;ITEM=ITEM-1
1) HRRZI 15,XRN ; JX=RN(MEDIT)+3 WD CNT OF OLD ITEM
1) ADD 15,MEDIT ;C I-IX IS WD CNT OF NEW ITEM
1) ;; ADD 15,DPY+=4000 ;C I-IX IS WD CNT OF NEW ITEM
1) KIFIX 14,-1(15) ;MOVE 14,-1(15)
**** File 2) LOOP.FAI[NEW,LCS]/1P/114L
2) ; COMMON /DL/X22,SAVER,NAME /XRN/RN(4000)
2) ; COMMON/PTR/PWDS(250),ITEM,L,I,IX/DPY/ST(4000),WDS(250),MEDIT,IGO
2) SOS LIMIT+1 ;ITEM=ITEM-1
2) HRRZI 15,XRN ; JX=RN(MEDIT)+3 WD CNT OF OLD ITEM
2) ADD 15,MEDIT ;DPY+=4000 ;C I-IX IS WD CNT OF NEW ITEM
2) KIFIX 14,-1(15) ;MOVE 14,-1(15)
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/129L
1) MOVE 10,MEDIT ;WAS DPY+=4000
1) ADD 10,14
**** File 2) LOOP.FAI[NEW,LCS]/1P/129L
2) MOVE 10,MEDIT ;DPY+=4000
2) ADD 10,14
***************
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
**** File 1) LOOP.FAI[AI,LCS]/1P/140L
1) J2751: ADD 14,MEDIT ;2751 CALL LOOP(MEDIT+JX+Z,IX+Z-1,1,0,-Z,RN)
1) ;;J2751: ADD 14,DPY+=4000 ;2751 CALL LOOP(MEDIT+JX+Z,IX+Z-1,1,0,-Z,RN)
1) ADD 14,11
**** File 2) LOOP.FAI[NEW,LCS]/1P/140L
2) J2751: ADD 14,MEDIT ;DPY+=4000 ;2751 CALL LOOP(MEDIT+JX+Z,IX+Z-1,1,0,-Z,RN)
2) ADD 14,11
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/291L
1) KIFIX 3,SCM ;KIFIX 3,SCM+=80
1) MOVE 4,STF(3) ;RSTFAC(STAFF)
**** File 2) LOOP.FAI[NEW,LCS]/1P/290L
2) KIFIX 3,SCM+=80
2) MOVE 4,STF(3) ;RSTFAC(STAFF)
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/389L
1) MOVE A,SCM ;MOVE A,SCM+=80 ;A=STAFF #
1) MOVEM A,XRN(R) ;PUT IT IN P2
**** File 2) LOOP.FAI[NEW,LCS]/1P/388L
2) MOVE A,SCM+=80 ;A=STAFF #
2) MOVEM A,XRN(R) ;PUT IT IN P2
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/393L
1) MOVE A, RINP-9(K) ;GET WHAT'S IN R(2,K)
1) N3B: MOVEM A,XRN+=9(R) ;PUT IT IN P11
1) MOVEI IEND,=11 ;SET WDCNT
1) JRST N4B
1) N4: CAME IS,[2.0] ;IS IT A REST?
1) JRST N4B ;NO
1) SKIPE A,RINP-9(K) ;IF P2 <> 0 TRANS. VALUE TO P11 (FERMATA ON REST)
1) JRST N3B
1) N4B: CAIGE IEND,3 ;IF(LOOP.NE.0)RN(IS+11)=LOOP (REAL)
1) MOVEI IEND,3
**** File 2) LOOP.FAI[NEW,LCS]/1P/392L
2) MOVEI IEND,=11 ;SET WDCNT
2) MOVE A, RINP-9(K) ;GET WHAT'S IN R(2,K)
2) MOVEM A,XRN+=9(R) ;PUT IT IN P11
2) N4: CAIGE IEND,3 ;IF(LOOP.NE.0)RN(IS+11)=LOOP (REAL)
2) MOVEI IEND,3
***************
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
**** File 1) LOOP.FAI[AI,LCS]/1P/525L
1) SUBI L,5 ;NOW JA=5 IS L=0
**** File 2) LOOP.FAI[NEW,LCS]/1P/519L
2) ;; CAIN L,5
2) SUBI L,5 ;NOW JA=5 IS L=0
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/539L
1) JRST H177
**** File 2) LOOP.FAI[NEW,LCS]/1P/534L
2) ;; CAIE L,6
2) JRST H177
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/577L
1) JSA 16,PLACE ;ALSO CHECK FOR P6 (RT. END OF SLUR)
**** File 2) LOOP.FAI[NEW,LCS]/1P/573L
2) ;; CAIE L,5 ; DO NEXT IF HOMING SLUR
2) ;; JRST H461
2) JSA 16,PLACE ;ALSO CHECK FOR P6 (RT. END OF SLUR)
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/601L
1) ; LOOKS FOR NOTE, STAFF #, STEM DIR.
**** File 2) LOOP.FAI[NEW,LCS]/1P/599L
2) ;;HX3: MOVEM A,.COMM.+4 ;R3=RD
2) ; LOOKS FOR NOTE, STAFF #, STEM DIR.
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/623L
1) JUMPE H13
**** File 2) LOOP.FAI[NEW,LCS]/1P/622L
2) ;; SKIPN
2) ;; JRST H13
2) JUMPE H13
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/637L
1) H11: CAIN L,1 ;IF(JA.EQ.6)GO TO 861
**** File 2) LOOP.FAI[NEW,LCS]/1P/638L
2) ;;H11: CAIN L,6 ;IF(JA.EQ.6)GO TO 861
2) ;; JRST H861
2) ;; CAIN L,5 ;IF(JA.EQ.5)GO TO 261
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
2) ;; JRST HX361
2) H11: CAIN L,1 ;IF(JA.EQ.6)GO TO 861
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/641L
1) H461: CAIE L,1 ;461 IF(JA.EQ.6)GO TO 277
**** File 2) LOOP.FAI[NEW,LCS]/1P/646L
2) ;;H461: CAIN L,6 ;461 IF(JA.EQ.6)GO TO 277
2) ;; JRST H277
2) ;; CAIE L,5 ;IF(JA.NE.5)GO TO 361
2) ;; JRST HX361
2) H461: CAIE L,1 ;461 IF(JA.EQ.6)GO TO 277
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/667L
1) H661: JUMPE L,HX361 ;661 IF(JA.EQ.5)GO TO 361 L=1 = JA=5
1) SKIPN .COMM.+=31 ;IF J10.EQ.0 GO TO 361
**** File 2) LOOP.FAI[NEW,LCS]/1P/676L
2) ;;H661: CAIN L,5 ;661 IF(JA.EQ.5)GO TO 361
2) ;; JRST HX361
2) H661: JUMPE L,HX361 ;661 IF(JA.EQ.5)GO TO 361 L=1 = JA=5
2) ;; MOVE 0,.COMM.+=31 ;IF(J10.LT.30)GO TO 361
2) ;; CAIGE 0,=30
2) SKIPN .COMM.+=31 ;IF J10.EQ.0 GO TO 361
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/682L
1) CODN: 0 ;FUNCTION CODN(K,N)
**** File 2) LOOP.FAI[NEW,LCS]/1P/695L
2) ;;PFIBX: 0 ;DATA FIB/0.618/, RFIB/-.382/,ALG/0.6931472/
2) ;100 ACCEPT 10,A 10 FORMAT(F)
2) ;; MOVE 12,@(16) ;PFIBX=14
2) ;; MOVE 13,[14.0] ;IF(A.EQ.1)GO TO 20
2) ;; CAMN 12,[1.0] ;Z=FIB
2) ;; JRST PFX ;IF(A.LT.1)Z=RFIB
2) ;; JSA 16,ALOG ;RH=ABS(ALOG(A)/ALOG(2.0))
2) ;; JUMP 12
2) ;; FDVR 0,[0.6931472] ;ALOG(2.0)
2) ;; MOVM 11,0
2) ;; MOVE 10,[0.618] ;FIB FACTOR
2) ;; SKIPG ;L=RH
2) ;; MOVN 10,[0.382] ;IF(L.EQ.0)GO TO 4
2) ;; KIFIX 7,11
2) ;; MOVE 6,7 ;SAVE L FOR LATER
2) ;; JUMPE 6,PFZ
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
2) ;;PF: MOVE 2,13 ; DO 3 K=1,L
2) ;; FMPR 2,10 ;3 PFIBX=PFIBX+PFIBX*Z
2) ;; FADR 13,2
2) ;; SOJG 6,PF
2) ;;PFZ: FLTR 7,7 ;4 RH=RH-L
2) ;; FSBR 11,7 ;IF(RH.EQ.0)GO TO 20
2) ;; JUMPE 11,PFX
2) ;; MOVE 2,13
2) ;; FMPR 2,10
2) ;; FMPR 2,11 ;PFIBX=PFIBX+PFIBX*Z*RH
2) ;; FADR 13,2
2) ;;PFX: MOVE 0,13 ;SEND BACK THE RESULT
2) ;; JRA 16,1(16)
2) CODN: 0 ;FUNCTION CODN(K,N)
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/694L
1) BLT 2,ALF+=99 ; CLEANS OUT INP ARRAY
1) ;CCRMA BLT 2,ALF+=71 ; CLEANS OUT INP ARRAY
1) CAIN ";"
**** File 2) LOOP.FAI[NEW,LCS]/1P/737L
2) BLT 2,ALF+=71 ; CLEANS OUT INP ARRAY
2) CAIN ";"
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/715L
1) NALF: 0 ;CHANGES ASCII CODE TO NUMBERS
1) MOVE 0,@(16)
**** File 2) LOOP.FAI[NEW,LCS]/1P/757L
2) NALF: 0
2) MOVE 0,@(16)
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/746L
1) FMPR SIZ+3 ;*RSY
1) KIFIX 13,0
**** File 2) LOOP.FAI[NEW,LCS]/1P/788L
2) FMPR SIZ
2) KIFIX 13,0
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/751L
1) FMPR SIZ ;*RSX SIZ IS FOR ZOOMED IMAGES
1) KIFIX 12,0 ;MOVE 12, ; 12=L
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
1) SUB 12,SIZ+1
1) CAIL 12,=495 ; CHECK IF X OUT OF BOUNDS OF CRT
1) MOVEI 12,=495
1) CAMG 12,[-=495]
1) MOVE 12,[-=495]
1) CAIL 13,=495 ; CHECK IF Y OUT OF BOUNDS OF CRT
1) MOVEI 13,=495
1) CAMG 13,[-=495]
1) MOVE 13,[-=495]
1) ;4/83 DDCHK: MOVNI 2,1
1) ;4/83 GETLIN 2 ;0=IT IS A DD
1) ;4/83 TLNN 2,20000 ; -1=NOT DD
1) ;4/83 JRST NOTDD
1) ;; JSA 16,DDCLR
**** File 2) LOOP.FAI[NEW,LCS]/1P/793L
2) FMPR SIZ ;SIZ IS FOR ZOOMED IMAGES
2) KIFIX 12,0 ;MOVE 12, ; 12=L
2) SUB 12,SIZ+1
2) CAIL 12,=550 ; CHECK IF OUT OF BOUNDS OF CRT
2) MOVEI 12,=511
2) CAMG 12,[-=550]
2) MOVE 12,[-=511]
2) DDCHK: MOVNI 2,1
2) GETLIN 2 ;0=IT IS A DD
2) TLNN 2,20000 ; -1=NOT DD
2) JRST NOTDD
2) ;; JSA 16,DDCLR
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/801L
1) ;4/83 JRST BX4-3 ;JRA 16,2(16) ;MAKE AN X ON THE DATA DISC
1) ;4/83 NOTDD: JSA 16,SETCUR
1) ;4/83 12
1) ;4/83 13
1) ;4/83 [0]
1) MOVE DL ;IOLD=X22 FOR TYPING "I <CR>" TO GET LAST EDIT BACK.
**** File 2) LOOP.FAI[NEW,LCS]/1P/839L
2) JRST BX4-3 ;JRA 16,2(16) ;MAKE AN X ON THE DATA DISC
2) NOTDD: JSA 16,SETCUR
2) 12
2) 13
2) [0]
2) MOVE DL ;IOLD=X22 FOR TYPING "I <CR>" TO GET LAST EDIT BACK.
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/813L
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 1,1
1) NSET ; WAS RINP (NSET IS IN BIG DPY BUFFER)
1) [=100]
**** File 2) LOOP.FAI[NEW,LCS]/1P/851L
2) RINP
2) [=100]
***************
**** File 1) LOOP.FAI[AI,LCS]/1P/999L
1) SKIPN 3 ;IF R2.EQ.0 THEN R2=JA (KEEP SAME VALUE IF TYPO)
1) MOVE 3,2 ; EG. 6124 INSTEAD OF 6 124 BECOMES 6000 6
1) MOVE RRJJ-2(3) ;RJJ(JA-2)=RJJ(X)
**** File 2) LOOP.FAI[NEW,LCS]/1P/1037L
2) MOVE RRJJ-2(3) ;RJJ(JA-2)=RJJ(X)
***************
**** File 1) LOOP.FAI[AI,LCS]/2P/19L
1) MOVEM 1,MEDIT ;WAS DPY+=4000
1) ;; MOVEI 2,2 ; J=2
**** File 2) LOOP.FAI[NEW,LCS]/1P/1054L
2) MOVEM 1,MEDIT ;DPY+=4000
2) ;; MOVEI 2,2 ; J=2
***************
**** File 1) LOOP.FAI[AI,LCS]/2P/52L
1) SKIPLE MEDIT+1 ;DPY+=4001 ; IF(IGO.GT.0)GO TO 4231
1) JRST BX4231 ; NO BOX WHEN IN GROUP EDIT ROUTINE
**** File 2) LOOP.FAI[NEW,LCS]/1P/1087L
2) SKIPLE MEDIT+1 ;DPY+=4001 ; IF(IGO.GT.0)GO TO 4231
2) JRST BX4231 ; NO BOX WHEN IN GROUP EDIT ROUTINE
***************
**** File 1) LOOP.FAI[AI,LCS]/2P/66L
1) SKIPN .COMM.+1 ;IF(JA.EQ.0.AND.CHNG.LT.0)RETURN
1) SKIPL IDEV+1 ;CHNG
1) SKIPA
1) JRA 16,1(16)
1) DPYD2: MOVEI 0,1 ;IF(IDEV.EQ.1)RETURN READING DATA FROM A FILE.
1) CAMN 0,IDEV
1) JRA 16,1(16)
1) MOVE 0,@(16)
1) MOVEM 0,ALZ
1) ;4/83 CAIN 0,1 ;DON'T CLEAR IF NOT PIECE OF GLASS #1
1) ;4/83 MOVNI 2,1 ; **
1) ;4/83 GETLIN 2 ;0=IT IS A DD **
1) LOOP.FAI[AI,LCS] and 2) LOOP.FAI[NEW,LCS] 6-26-84 14:38 pages 2,1
1) ;4/83 TLNE 2,20000 ; 0=IS DD **
1) ;4/83 JSA 16,DDCLR ; GO CLEAR THE DD SCREEN
1) JSA 16,DPYOUT
**** File 2) LOOP.FAI[NEW,LCS]/1P/1101L
2) MOVE 0,@(16)
2) MOVEM 0,ALZ
2) CAIN 0,1 ;DON'T CLEAR IF NOT PIECE OF GLASS #1
2) MOVNI 2,1 ; **
2) GETLIN 2 ;0=IT IS A DD **
2) TLNE 2,20000 ; 0=IS DD **
2) JSA 16,DDCLR ; GO CLEAR THE DD SCREEN
2) JSA 16,DPYOUT
***************